home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr37 / match_10.zip / MATCHER!.WCX (.txt) < prev    next >
Wildcat! WCX  |  1995-03-11  |  860b  |  79 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  860 bytes  01/29/123  04:30:30pm
  3. '! Code Segment Size  :682 bytes
  4. '! Data Segment Size  :4639 bytes
  5. '! String Segment Size:178 bytes
  6. '! Compiled with WCC version 4.01
  7.  
  8.       Dim s4563 As String
  9.       Dim s4567 As String
  10.       Dim s4571 As String
  11.       Dim s4575 As String
  12.       Dim s4579 As String
  13.       Dim s4583 As String
  14.       Dim s4611 As String
  15.       Dim s4615 As String
  16.       Dim s4619 As String
  17.       Dim s4623 As String
  18.       Dim s4627 As String
  19.       Dim s4631 As String
  20.       Dim s4635 As String
  21.  
  22.       s4563 = "Agedisp2.bbs"
  23.       s4567 = "HitDisp2.bbs"
  24.       s4571 = "WetDisp2.bbs"
  25.       s4575 = "HarDisp2.bbs"
  26.       s4579 = "EyeDisp2.bbs"
  27.       s4583 = "SexDisp2.bbs"
  28.       Open "matcher!.cfg" For Input As 1
  29.       Input #1, s4611
  30.       Input #1, s4615
  31.       Input #1, s4619
  32.       Input #1, s4623
  33.       Input #1, s4627
  34.       Input #1, s4631
  35.       Close 1
  36.       Do
  37.         Do
  38.           Do
  39.   161       DisplayHelp "RegiMain.BBS"
  40.             s4635 = InputMask("                    ", "XX", "", 1213417543)
  41.             If (s4635 = "") = 0 Then GoTo 225
  42.           Loop
  43.           GoTo 499
  44.   225     If s4635 = "1" Then
  45.             Chain s4611, ""
  46.             GoTo 499
  47.           End If
  48.   260     If s4635 = "2" Then
  49.             Chain s4615, ""
  50.             GoTo 499
  51.           End If
  52.   295     If s4635 = "3" Then
  53.             Chain s4619, ""
  54.             GoTo 499
  55.           End If
  56.   330     If s4635 = "4" Then
  57.             Chain s4623, ""
  58.             GoTo 499
  59.           End If
  60.   365     If s4635 = "6" Then
  61.             Chain s4627, ""
  62.             GoTo 499
  63.           End If
  64.   400     If s4635 = "7" Then
  65.             Chain s4631, ""
  66.             GoTo 499
  67.           End If
  68.   435     If s4635 = "Q" Then
  69.             GoTo 505
  70.             GoTo 499
  71.           End If
  72.   464     If s4635 = "q" Then
  73.             GoTo 505
  74.             GoTo 499
  75.           End If
  76.   493   Loop
  77.   499 Loop
  78.   505 End 
  79.